home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wildcat Gold - The Optical BBS
/
Wildcat Gold - The Optical BBS (The Golden ROM Series)(Volume 4 Number 1)(The Digital Publishing Company)(1992).ISO
/
sdn
/
taskmst.sdn
/
TM480.EXE
/
TMISSUE.EXE
/
STANDARD.TSK
< prev
Wrap
Text File
|
1991-09-10
|
38KB
|
1,864 lines
go 1INIT ;see notes there
1BEGIN
until forever
go 1LOGIN
1ENDLOG
trim uname
move 0ffcfh to bbmask
move autolog to timer
MENU 1,serv,texts
OPTION 1,42
move hilite to choice
clear bbdisp
subtract 1 from hilite giving i
if hilite = lasthelp
return
fi
move i to j
multiply j by 4
add 4 to j giving k
insert entry i of texts
if entry j of hlp = spaces
move 'SORRY' to form
else
move 'INFO' to form
until j = k
insert entry j of hlp
fi j
fi
put form nowait
move hilite to lasthelp
return
OPTION 1,44
if m2id = 0
put features nowait nodata
popget m2id
put clearkeys nowait
popget ckid
else
popdown ckid
popdown m2id
fi
move 0ffe1h to bbmask
move hilite to topic1
popdown bclr
move autolog to timer
clear bbdisp lasthelp
MENU 2,features
OPTION 2,30
option 2,45
option 2,99
clear bbdisp
move topic1 to choice
popdown p1
return 1
OPTION 2,2
fieldfill fn1
popdown khelp
put dpfile
popdown bclr
if funkey = 10
move hilite to choice
clear bbdisp
return
fi
get fn1
trim fn1
run fmpdir '\LIST ' fn1
popfree p0
popscreen p0
popdown p1
move hilite to choice
popdown ckid
popdown m2id
clear bbdisp
return
OPTION 2,3
popdown p0
go 1CAPTURE
OPTION 2,4
go 1JOTTER
OPTION 2,5
move hilite to i
if sfiles = spaces
insert current_path
put nocats
return
fi
insert sfiles
move 8020h to bbmask
put servcats
clear bbdisp
if choice > 10
move i to choice
return
fi
move servcat to lastcat
move display to servcat
trim servcat
if servcat = lastcat
move i to choice
return
fi
move true to newcat
move true to bbdisp
exitm
OPTION 2,6
go 1ST
OPTION 2,7
fieldfill current_path
popdown khelp
put newpath
popdown bclr
if funkey <> 10
if funkey = 2
move initial_path to cpath
else
get cpath
trim cpath
fi
if cpath <> current_path
user cpath
move cpath to current_path
fi
if cpath sw '~:'
move cpath to drv
select drv
else
move ddrive to drv
fi
dspace
if resp = 0ffffh
insert drv
put nodrive
else
insert sysfree display ddrive
put freebytes nowait
fi
fi
clear bbdisp
move hilite to choice
return
OPTION 2,8,9
if shellout
go 1shell
fi
put noshells
move hilite to choice
clear bbdisp
return
OPTION 2,1
forms LOGON.OVR
put bounce_bar ul wt
forms stforms
popdown p1
move hilite to choice
popdown ckid
popdown m2id
clear bbdisp
return
OPTION 1,1,10
popdown bclr
subtract 1 from choice giving i
move entry i of paths to cpath
replace all '\FMP' of cpath with fmpdir
move entry i of cmds to cmd
trim cpath cmd
move time to timenow
move entry i of t1 to tim1
move entry i of t2 to tim2
clear na replies
if timenow >= tim1 and timenow <= tim2
elseè move true to na
fi
if cmd = ';' or entry i of texts = spaces or na
insert entry i of texts
if na
insert tim1 tim2
move 'NOAVAIL' to form
else
move 'NOSERV' to form
fi
put form nowait
clear bbdisp
else
move '1RTN' to label
go 1PARSUB
1RTN
move entry i of dts to dta
trim dta
if dta <> null
data dta
move entry i of wst to j
if j = 0
behave 2
else
behave 2 wait j
fi
fi
fore 7
back 0
display CLS
user cpath
if entry i of pty = 'N'
run cmd
else
large cmd
fi
if resp <> 0
go 1BADRUN
fi
move entry i of res to j
move true to run1
if j <> 1
go 1CHECK
1ENDCHK
fi
if entry i of pau = 'Y' and run1
userline 'Paused as requested - ' wt
inkey char
fi
user current_path
popfree p0
popup p0 from p1
clear bbdisp
fi
dspace
insert sysfree display ddrive
put freebytes nowait
move hilite to choice
return
OPTION 1,11
clear reason
if demo
increment reason
else
if not secure
move 2 to reason
fi
fi
if uname = guest
move 4 to reason
else
popdown khelp
put 'NEWPASS'
popdown bclr
if anyfk
clear bbdisp
return
fi
get oldpass newpass
if oldpass = pass
move 10 to resp
password newpass
move newpass to pass
else
move 3 to reason
fi
fi
if reason <> 0
decrement reason
insert entry reason of reasons
put passfail
fi
clear bbdisp
return
OPTION 1,12
logout
exitm
OPTION 1,13
if nstat = 0
put noipx nowait
clear bbdisp
return
fi
go 1MSG
option 1,43
combine catloc '\CATALOG.EUC' into sline
insert version stype ldspec cfp sline
put about
clear bbdisp
move hilite to choice
return
OPTION 1,30
OPTION 1,45
put logoff
get yesno
if not yesno
clear bbdisp
move hilite to choice
return
fi
logout
exitm
OPTION 1,99
logout
ENDM 2
exitm
ENDM 1
if newcat
move '1RESTART' to loaded
put loading nowait
go 1RESTORE
1RESTART
fi
fiè
1CHECK
clear sline found k
move entry i of res1 to stext
move entry i of res2 to l
trim stext
MENU 3,J
OPTION 3,2
if l < 25
scanvid l giving sline
if sline ct stext
move true to found
fi
else
until k = 25 or found
scanvid k giving sline
if sline ct stext
move true to found
fi
fi k
fi
exitm
OPTION 3,3
combine stext '\' entry i of res2 into sline
trim sline
lookfor sline
exitm
OPTION 3,4
move stext to char
upper char
move true to found
if char = 'S' and l = elevel
else
if char = 'F' and l <> elevel
else
clear found
fi
fi
exitm
ENDM 3
move entry i of apt to char
upper char
if not found
userline 'Service response not as expected - ' wt
if char = 'S'
move true to found
fi
inkey char
else
if char = 'S'
clear found
fi
fi
if not found
move entry i of ap to cpathè move entry i of ac to cmd
trim cpath cmd
move '2RTN' to label
go 1PARSUB
2RTN
user cpath
display cls
if entry i of apt = 'N'
run cmd
else
large cmd
fi
clear run1
fi
if resp <> 0
go 1BADRUN
fi
goback 1ENDCHK
1PARSUB
setscan cmd
move hilite to choice
clear j delim prog
scan prog
add i to i giving k
add k to k
until j = 4
if cmd ct entry j of pcs
move entry j of replies to param
if param = spaces
move entry k of prompts to prompt
trim prompt
combine prompt ' ?' into sline
move entry k of pqs to yesno
insert prog sline
if yesno
put query
get reply
else
fieldfill entry k of pdefs
put getparam
get param
fi
if funkey = 10
if label = '1RTN'
popdown bclr
else
user current_path
popfree p0
popup p0 from p1
fiè clear bbdisp
return
fi
if yesno
if reply
move entry k of pdefs to param
else
move entry k of p2defs to param
fi
fi
trim param
fi
replace all entry j of pcs of cmd with param
move param to entry j of replies
fi
increment j
fi k
replace all '%M' of cmd with mflag
replace all '%F' of cmd with fmpdir
goback LABEL
1SHELL
popdown p0
fore 7
back 0
display cls
if choice = 8
run
else
large
fi
user cpath
select ddrive
popdown p1
popdown ckid
popdown m2id
dspace
insert sysfree display ddrive
put freebytes nowait
move hilite to choice
clear bbdisp
return
1MSG
if eucn = 0
put nosysadm
else
popdown khelp
put whatmsg
popdown bclr
if not anyfk
get msg
trim msg
if msg <> null
ms eucn uname ':' msg
if resp <> 0
put msgnotrx
else
move time to mst
move cn to vwcn
move eucn to veucn
insert msg mst vwcn veucn
put rxdetails
fi
fi
fi
fi
clear bbdisp
return
1LOGIN
if not eusr or skip_login
go 2LOGIN
fi
move 1 to respèclear try
until resp = 0 or try = 3
insert site
if try > 0
insert logfail
fi
move 120 to timer
if not secure
fieldfill guest
fi
put log noclear ul
if funkey = 10
stop
fi
if resp = 1
if blackout
fore 0
back 0
display cls
inkey char
fi
clear try
else
get uname pass
if build@ <> 1 or uname sw guest
move 999 to resp
fi
login uname pass ug
if resp <> 0
if resp <> 3
increment try
else
move 1 to try
ms server 'User ' uname ': login failure ' resp
put dupeuser
fi
if try = 3
clear I
put hack wait 1 noclear
move 9 to delay ;half a sec
if demo
move 5 to bells
fi
until i = bells
wait 1
display bell
fi i
move 18 to delay
clear try
if demo
insert site
put 'ALERT' nowait
stop
fi
fi
move 1 to resp
fi
fi
fi
if ug = 99
move 'LOG3' to log
2LOGIN
fi
move shell to shellout
if shell
if eusr and sug = 0 or ug = sug
else
clear shellout
fi
fi
if not newcat and not shellout
disable shelling
fi
popdown p1
clear bbdisp choice skip_login
goback 1ENDLOG
1ST
if colour
move 'CGA' to vtype
fi
if graphics
move 'EGA' to vtype
fi
put 'STATS' nowait
cursor 17 22 servcat
if secure
cursor 17 47 'High'
else
cursor 17 48 'Low'
fi
if mins = 0
cursor 17 70 'Off'
else
cursor 17 68 mins ' mins.'
fi
cursor 18 22 ms1 '.' ms2
cursor 18 43 date
cursor 18 70 vtype
cursor 19 19 sysmax 'K'
cursor 19 47 version
cursor 19 72 ddrive
cursor 20 21 sysfree
cursor 20 46 residency
cursor 20 68 elevel
if nstat <> 0
cursor 21 19 'loaded'
fi
cursor 21 46 cn
cursor 21 68 eucn
cursor 22 13 current_path
clear bbdisp
move hilite to choice
return
1BADRUN
move resp to char
if responses ct char
move entry fcol of rforms to form
else
move resp to cresp with lead_zeroes
insert cresp
move 'BRX' to form
fièpopfree p0
popup p0 from p1
clear bbdisp
put form nowait
user current_path
return
1CAPTURE
fore 1
back 7
move hilite to choice
userline 'STANDARD: C = Capture screen to disc, any other key for main screen'
cursor 0 0
inkey char
clear bbdisp
if char = 'C'
popdown khelp
put capture
popdown bclr
if funkey <> 10
get sline char
trim sline
dir sline
if found
insert sline
put exists
get create
if not create
popdown p1
popdown ckid
popdown m2id
return
fi
fi
popdown p0
behave 3 sline
clear i
until i = 25
clear sline
scanvid i giving sline
if char = 'T'
move sline to sline2
trim sline
data sline
if sline <> sline2
data crlf
fi
else
data sline
fi
if resp <> 0
put sferr
move 24 to i
fi
fi i
if char = 'T'
data ef
fi
behave 0
fi
fi
popdown p1
popdown ckid
popdown m2id
return
1JOTTER
move hilite to j
clear create
if nopads = 0
move '--------' to pads
fi
insert pads
move 0a020h to bbmask
put notepads
clear bbdisp
if choice = 30 or choice = 40
move j to choice
return
fi
move display to jotter
popdown khelp
if choice = 32 or jotter = dashes
put memname
if funkey <> 10
get jotter
clear jot
move true to create
else
move j to choice
return
fi
fi
move j to choice
trim jotter
combine initial_path '\' jotter '.TMJ' into jotname
replace '\\' of cfp with '\'
if not create
restore jotname jot
if resp <> 0
go 1J
fi
restore
else
dir jotname
if found
insert jotname
put exists
get create
if not create
popdown bclr
return
fi
fi
fi
fieldfill jot
insert jotter
put mem
popdown bclr
clear i
if funkey <> 10
until i = 10
get entry i of jot
fi i
save jotname jot
if resp <> 0
go 1J
fi
save
if create and nopads < 10
move jotter to entry nopads of pads
increment nopads
fi
fi
go 2J
1J
insert jotname
if not create
if resp = 99
insert garbage
else
insert badread
fi
restore
else
insert badmake
save
fi
put badnotes
2J
if create
dspace
insert sysfree display ddrive
put freebytes nowait
fi
return
1INIT
vconst cyan_on_blue,68
cursor 0 0
display cyan_on_blue
draw 10 20 14 60
cursor 12 22 'Initialising ... please wait'
;DATA commands placed here to make more room for code avoiding overlays
DEFINE BELLS,60
INT AUTOLOG
INT BCLR
INT CKID
INT I,J,K,L
INT KHELP
INT LASTHELP
INT M2ID
INT MINS
INT NOPADS
INT P0,P1
INT REASON
INT RESIDENCY
INT SUG
INT TOPIC1
INT TRY
INT UG
INT WID
var garbage,20,'contains garbage '
var badread,20,'could not be read '
var badmake,20,'could not be created'
VAR AC,60,OCCURS 10
VAR AP,68,OCCURS 10
VAR APT,1,OCCURS 10
VAR APF,1,OCCURS 10
VAR BLACK,1
VAR CATLOC,68
VAR CFP,68
VAR CHAR,1
VAR CMD,80
VAR CMDS,60,OCCURS 10
VAR CPATH,68
VAR CRESP,5,'00000'
VAR CURRENT_PATH,68
VAR DATE11,11
VAR DRV,1
VAR DTA,64
VAR DTS,64,OCCURS 10
VAR FILENAME,14,'STANDARD'
VAR FMPDIR,68,$FMPDIR
VAR FN1,60
VAR FORM,8
VAR GUEST,16,'guest'
VAR HLP,72,OCCURS 56
VAR INITIAL_PATH,68
VAR LABEL,4
VAR LASTCAT,8
VAR LOADED,12,'1BEGIN'
VAR LOG,4,'LOG1'
VAR LOGFAIL,23,'Invalid login ... retry'
VAR JOTTER,8
VAR JOTNAME,68
VAR JOT,40,OCCURS 10
VAR MFLAG,2
VAR MSG,38
VAR MST,8
VAR MSVER,3,'X.X'
VAR MS1,1,' 'èVAR MS2,1,' '
VAR NEWPASS,16
VAR NOSERVCAT,11,'Unavailable'
VAR NULL,1
VAR OLDPASS,16
VAR PADS,8,OCCURS 10
VAR PARAM,40
VAR PASS,16
VAR PATHS,68,OCCURS 10
VAR PAU,1,OCCURS 10
VAR PCS,2,OCCURS 4,'%1%2%3%4'
VAR PROG,8
VAR PROMPT,40
VAR PROMPTS,40,OCCURS 40
VAR REPLIES,40,OCCURS 4
VAR PDEFS,40,OCCURS 40
VAR P2DEFS,40,OCCURS 40
VAR PQS,1,OCCURS 40
VAR PTY,1,OCCURS 10
VAR REASONS,29,OCCURS 4,
'Running in Demonstration mode'
'Not allowed when Security low'
'Incorrect old password given '
'Change not allowed for guests'
VAR RES,1,OCCURS 10
VAR RES1,40,OCCURS 10
VAR RES2,40,OCCURS 10
VAR RESPONSES,5,'25678'
VAR RFORMS,3,OCCURS 5,
'BR2'
'BR2'
'BR6'
'BR7'
'BR8'
VAR SLINE,80
VAR SLINE2,80
VAR SERVCAT,8,'CONFIG'
VAR SFILES,8,OCCURS 10
VAR SITE,24
VAR STEXT,40
VAR STFORMS,68
VAR STYPE,28,'Unregistered Shareware V4.80'
VAR T1,5,OCCURS 10
VAR T2,5,OCCURS 10
VAR TEXTS,16,OCCURS 13
VAR TIM1,5
VAR TIM2,5
VAR TIMENOW,5
VAR TIMEOUT,2
VAR UNAME,16
VAR VERSION,5,'V1.04'
VAR VTYPE,3,'MDA'
VAR VEUCN,3
VAR VWCN,3
VAR WST,2,OCCURS 10
VAR WT,17,'press any key ...'
HEXVAR BELL,07
HEXVAR CRLF,0D0A
HEXVAR EF,1A
LOGICAL BLACKOUT
LOGICAL CREATE
LOGICAL EUSR
LOGICAL FIRST
LOGICAL FOREVER
LOGICAL NA
LOGICAL NEWCAT
LOGICAL PREV_EUSR
LOGICAL REPLY
LOGICAL RUN1
LOGICAL SECURE
LOGICAL SKIP_LOGIN
LOGICAL SHELL
LOGICAL SHELLOUT
LOGICAL YESNOè
vconst cls,11
END
if build@ = 1
move 'Professional V4.80' to stype
fi
if build@ = 2
move 'Registered Shareware V4.80' to stype
fi
if fmpdir = null
move 'C:\FMP' to fmpdir
fi
move resp to msver ;e.g. returns ' 33'
move zero to delim
move fcol to residency
combine fmpdir '\STANDARD.OVR' into stforms
replace all '\\' of stforms with '\'
if not colour
move '/M' to mflag
fi
setscan msver 1
scan ms1 ms2 ;need each digit
user current_path
user initial_path
move true to hide
lookfor stforms
if not found
insert filename stforms
display cls
put no_fmpdir_forms nowait
stop 1
fi
popscreen p0
screen 1
forms stforms
1RESTORE
combine initial_path '\' servcat '.TMS' into cfp
replace '\\' of cfp with '\'
restore cfp catloc site texts cmds pty paths dts wst pau res res1 res2
if resp = 0
restore ac ap apt apf hlp t1 t2 secure prompts pdefs p2defs pqs
fi
if resp = 0
restore timeout black shell sug
fi
if resp = 0
restore
else
back 1
cyrsor 17 2 'Fatal Error:'
if resp = 99
cursor 18 2 'Service file ' cfp ' is corrupt'
else
cursor 18 2 'Service file ' cfp ' could not be opened'
fi
stop 2
fi
move black to blackout
if catloc <> null
move true to eusr
fi
if newcat and eusr and prev_eusr
move true to skip_login
fi
move eusr to prev_eusr
if secure
move 'LOG1' to log
else
move 'LOG2' to log
fi
if eusr and not newcat
catalog catloc
if resp <> 0
displayln 'Catalogue open failure ' resp
displayln catloc '\CATALOG.EUC not found'
displayln 'Failure to open EUC Catalogue file'
stop 3
fi
fi
screen 1
dspace
insert site sysfree display ddrive ldate
put start nowait
insert texts
put serv nodata noclear
fore 15
back 1
popfree p1
popscreen p1
if khelp = 0
put 'khelp' nowait
popget khelp
put 'bclr' nowait
popget bclr
fi
popdown p1
screen 0
move timeout to autolog
move autolog to mins
multiply autolog by 60
if not newcat
clear sfiles i
move '.' to delim
dir *.TMS
until not found or i = 10
setscan display 30
scan entry i of sfiles
dir
fi i
clear pads
dir *.TMJ
until not found or nopads = 10
setscan display 30
scan entry nopads of pads
dir
fi nopads
fi
clear newcat
goback LOADED
ENDTASK
; Title : STANDARD.TSK Last Updated : see 'about'
; Author : Mike Eastham.- FmP. Version : see 'version'
; Purpose : Standard Services Selection using Workload configuration.
; Notes : Configuration performed using CONFIG.TSK
;Following are the form, menu, popup and dropdowns to be processed by SCR
;into an .OVR file.
;Some personalisation of colours can be achieved by amending the following
;macros:
@VIDEO
@macro form
@dim
@col char,black,cyan
@acceptfk esc,f10
@endm
@macro form_fore,'black'
@macro form_back,'cyan'
@macro alert
@dim
@col char,white,red
@endm
@macro alert_fore,'cyan'
@macro cancel
@line
@col char,blue,cyan
@endm
@macro info_box
@dim
@col char,black,green
@win line17,column1,depth6,width78
@endm
@macro alert_box
@dim
@col char,white,red
@win line17,column1,depth6,width78
@endm
@macro normal_text
@bright
@col char,white,blue
@endm
@default≤ dim,cyan,blue
@head left,' SERVICE SELECTION'
@head right,'Copyright (C) FmP 1991'
@head centre,'{ }'
@macro noserv
@bright
@col char,white,green
@win line17,column1,depth6,width78
{ }
@endm
@macro bwin,'@win line17,column1,depth6,width78'
@markers []
@nf start
@col char,cyan,blue
@banner
@col char,white,blue
@win line1,column0,depth23,width80
@out white,double
@dim
@col char,black,white
@win line4,column28,width48,depth9
@out black
Help about the highlighted service ...
@line
Other facilities ... PgDown
@line
About ... PgUp
@line
Exit ... Esc / End
@bright
@col char,white,blue
{ } Memory{ } bytes free on drive{ }
@dim
@col char,black,white
@use '{ } Taskmaster STANDARD task'
@end
@nf freebytes
@bright
@col char,white,blue
@window line16,column28,width50,depth1
{ } Memory{ } bytes free on drive{ }
@end
@nf about
$form$
@win line3,column4,width72,depth18
@drop
@outline $form_fore$,double
ABOUT ...
@line
This is the STANDARD end-user service task{V1.04} dated 28/08/91
interpreted by Taskmaster{Unregistered Shareware V4.80}
@line
Optional interface to the End User Computing (EUC) facility.
@line
Copyright (C) FmP 1991. All rights reserved worldwide.
@line
Loaded { }
Service file { }
EUC catalogue { }
$cancel$
Acknowledge ... any key
@end
@nf serv
@dim
@col char,black,white
@win line2,column2,depth15,width24
@out red
F1
F2
F3
F4
F5
F6
F7
F8
F9
@win line2,column2,depth15,width19
@dim
@bbmenu red,white
@fkmap
@out red
8
@repeat x13
{ }
2
@END
@nf clearkeys
@col char,black,white
@win line3,column22,depth9,width2
@end
@nf features
@dim
@col char,blue,cyan
@win line 2,column 28,depth14,width 50
@bbmenu blue,cyan
@fkmap
@out black
@key bright,white,cyan
{Help on the use of Bounce-bar menus ... F1 }
{Display the contents of a File ... F2 }
{View/save output from last Application ... F3 }
{Provides a simple Notepad facility ... F4 }
{Loads alternative service catalogues ... F5 }
{Give information about PC environment ... F6 }
{Change working drive and/or directory ... F7 }
@line
{SHELL OUT - i.e. begin new DOS shell ... F8 }
{SHELL OUT - make all memory available ... F9 }
@line
Service selection ... Esc / End
@end
@nf noshells
$alert$
@window line 8,column16,width48,depth8
@outline $alert_fore$
@drop
SECURITY
@line
The system administrator has not granted you
a SHELL facility.
@line
@bright
Acknowledge ... any key
@end
@head left,'STANDARD: SESSION LOGIN'
@macro log
@banner
@border
@str min1
@str
USERNAME ? [. ] Enter your name and optional
password, press
PASSWORD ? [! ]
{ }
@border
@endm
; TEMPLATES FOR SESSION LOGIN
@nf log1
@acceptfk none
$log$
@bright
@END
@nf log2
@acceptfk f10è$log$
Thi≤ átasδ i≤ runninτ with certain security features switched off and
you can optionally quit now by pressing F10.
áááááSimilarly¼ áusernamσ á'guestº i≤ onl∙ availablσ iε áthi≤ ámode« áUser≤ ì
áááááare normall∙ requireΣ t∩ ente≥ ß valiΣ usernamσ anΣ passworΣ áa≤ setu≡
b∙ thσ Systeφ Administrato≥ o≥ yourself.
When using EUC, security is always high and users are catalogued into
a user-group. Users in group 99, once logged-in are also permitted to
escape from the task.
@bright
@END
@nf log3
@acceptfk f10
$log$
To exit, press F10.
@bright
@end
@nf dupeuser
$alert$
@window line4,column4,width72,depth17
@drop
@out $alert_fore$
Problem: A user with this name is already logged-on.
@line
Possible reasons:
@line
1. You are working on a network and somebody else has already
logged on using the same name. This may be a breach of
security.
@line
2. The system crashed on a previous occasion giving Taskmaster
no opportunity to mark the user off-line in the EUC catalogue
@line
Action: I have sent a message to the System Administrator informing
him of the problem but I cannot guarantee its receipt.
@line
@bright
Acknowledge ... any key
@end
@nf hack
$alert_box$
$bwin$
U N A U T H O R I S E D A C C E S S A T T E M P T E D
@END
@nf alert
@head left,STANDARD: SECURITY
@dim
@col page,cyan,red
@banner
@border
You have failed three times to give a valid username and password.
Becausσ áthi≤ átasδ ái≤ runninτ iε demonstratioε ámode¼ áthσ áaler⌠ áha≤ ì
áááceased« áNormally¼ ái⌠ woulΣ havσ gonσ oε fo≥ mucΦ longe≥ áiε áorde≥ át∩ ì
áááaler⌠ other≤ t∩ ß possiblσ unauthoriseΣ attemp⌠ t∩ acces≤ you≥ system.
Afte≥ áß ásuitablσ áperiod¼ ß logiε woulΣ theε ábσ árequireΣ áagain« áIε ì
ááápractice¼ iµ yo⌡ neeΣ ß higΦ leve∞ oµ security¼ yo⌡ shoulΣ amenΣ áyou≥ ì
áááAUTOEXEC.BATê filσ t∩ loaΣ T═ STANDARDê oε ß dail∙ basis.
If you are developing your own secure task, you should make sure that
you disable Breakin via the CTRL/C and CTRL/Break keys by using
Taskmaster's DISABLE command.
When you combine these features with a login procedure that requires
password entry, and the passwords are encrypted, you have the basis of a
secure system.
$normal_text$
@end
@nf logoff
@acceptfk none
@log
$alert$
@win line7,column18,depth11,width44
@drop
@out $alert_fore$
End session ? [Y] Y=Yes, N=No
@line
No ... Cancel the request
@line
Yes ... Return to the logon screen
@line
@bright
Action ...
@end
; TEMPLATES FOR PASSWORD UPDATE
@nf newpass
$form$
@str
@str
@win line2,column26,depth12,width46
@drop
@out $form_fore$
OLD PASSWORD ? [! ]
NEW PASSWORD ? [. ]
@line
The password can't be changed when running
in demonstration mode or when security is
set low. The 'guest' password can never be
changed.
$cancel$
Cancel ... Esc / F10
@end
@nf passfail
$alert$
@win line8,column19,depth7,width42
@drop under
@out $alert_fore$
Password unchanged ..
@line
Reason: { }
@line
@bright
Acknowledge ... any key
@end
@nf stats
@dim
@col char,cyan,blue
$bwin$
Service file Security Auto logout
Dos version Date Video mode
Maximum memory STANDARD vers. Default drive
Available memory Resident code ERRORLEVEL
NETWARE IPX - WCN. - EUC WCN. -
Directory
@end
@nf infoè$info_box$
{ }
@repeat x4
{ }
@END
@nf bclr
@col char,cyan,blue
$bwin$
@end
@nf sorry
$noserv$
SORRY : No information about this service has been provided by the System
Administrator.
@end
@nf noserv
$noserv$
This service has not yet been fully installed. Contact your System
Administrator or complete installation using CONFIG.TSK
@END
@nf noavail
$noserv$
This service is only available between the hours of{ } and{ }
Please try again as appropriate.
@END
@nf noipx
$alert_box$
è Messages can only be sent to the System Administrator when running on a
NOVELL NETWORK. There was no active networking software on your m/c at
the time this task was loaded.
@end
@nf khelp
@dim
@col char,cyan,blue
$bwin$
Cursor: First field: Home Action:
Editing: Delete from cursor to end of field = ctrl/T
Character insert: ins Character delete: del or ctrl/Gè@END
; TEMPLATES FOR SERVICE CATALOGUE SELECTION
@nf servcats
$form$
@acceptfk f1
@win line2,column17,depth17,width46
@bbmenu $form_fore$,$form_back$
@drop
@out $form_fore$
SELECT SERVICE MENU
@line
@repeat x5
{ } { }
@line
If the new services are available only to
specific users or have a higher security,
you may be required to login again.
$cancel$
Select ...
Action ...
Cancel ... Esc / F10
@end
@nf nocats
$alert$
@win line8,column4,depth9,width72
@drop
@out $alert_fore$
No service catalogues found in the current working directory:
{ }
@line
The master service file is called CONFIG.TMS and normally resides in
C:\FMP or as defined by the environment variable FMPDIR.
@line
@bright
Acknowledge ... any key
@end
@nf loading
$alert$
@win line7,column20,depth10,width40
@outline $alert_fore$,double
@bright
@draw
LOADING NEW SERVICE CATALOGUE
@draw
Please Wait ...
@end
@nf nodrive
$alert$
@win line9,column14,depth7,width52
@drop
@out $alert_fore$
Drive{ } is not responding.
@line
If it is a floppy, check that the door is closed.
@line
@bright
Acknowledge ... any key
@end
@nf br2
$alert_box$
Invalid COMSPEC or COMMAND.COM not found
áááTaskmaste≥ ácoulΣ no⌠ finΣ COMMAND.CO═ o≥ thσ prograφ specifieΣ b∙ áthσ ì
áááCOMSPE├ environmen⌠ variable« Non-hard disc users : pleasσ check that
that your BOOT (system) disc is in the drive.
@end
@nf br6
$alert_box$
Unable to create swap file
áááTaskmaste≥ áha≤ ábeeε áunablσ t∩ loaΣ thσ árequireΣ áapplicatioε áwhicΦ ì
áááneedeΣ mos⌠ oµ thσ basiπ memory« Normall∙ Taskmaste≥ copie≤ itselµ ou⌠ ì
ááát∩ ádisπ áiε orde≥ t∩ makσ rooφ bu⌠ i⌠ couldn'⌠ creatσ ß á'SWAPº áfile« ìèáááPleasσ checδ tha⌠ you≥ disπ ha≤ rooφ anΣ thσ TM╨ environmen⌠ variable«
@end
@nf br7
$alert_box$
Disc write error on swap file
áááTaskmaste≥ áha≤ ábeeε áunablσ t∩ loaΣ thσ árequireΣ áapplicatioε áwhicΦ ì
áááneedeΣ mos⌠ oµ thσ basiπ memory« Normall∙ Taskmaste≥ copie≤ itselµ ou⌠ ì
ááát∩ disπ iε orde≥ t∩ makσ rooφ bu⌠ i⌠ couldn'⌠ writσ t∩ thσ 'SWAPº file¼ ì
ááái.e« thσ filσ t∩ whicΦ i⌠ copie≤ itself« Perhap≤ thσ disπ i≤ full.
@end
@nf br8
$alert_box$
Insufficient memory available
áááTaskmaste≥ áha≤ ábeeε unablσ t∩ loaΣ thσ requireΣ áapplicatioε ábecausσ ì
ááátherσ ái≤ no⌠ enougΦ memory« Yo⌡ caε finΣ ou⌠ ho≈ mucΦ memor∙ áremain≤ ì
áááb∙ áusinτ áFunctioε ke∙ 6« I⌠ ma∙ bσ tha⌠ thσ prograφ ái≤ ásimpl∙ áto∩ ì
ááálarge« Pleasσ contac⌠ you≥ systeφ administrator.
@end
@nf brx
$alert_box$
Unexpected response ({ }) loading application
áááTaskmaste≥ áha≤ attempteΣ anΣ faileΣ t∩ loaΣ you≥ applicatioε ábu⌠ áthσ ì
áááreasoε áfo≥ failurσ i≤ unknown« Pleasσ tr∙ again« Iµ thσ áprobleφ ái≤ ì
ááápermanent¼ áthσ ácomputer'≤ memor∙ ma∙ bσ corrupt« áPleasσ áreboo⌠ áanΣ ì
áááretry.è@end
; TEMPLATES FOR SCREEN DATA CAPTURE
@nf capture
$form$
@str
@list IT
@win line1,column4,depth15,width74
@drop
@outline $form_fore$
File to receive captured screen data ?
[. ]
[T] I=store as image file, T=store as text file
@line
Image file: an exact copy of the screen (i.e. 2000 characters).
@line
Text file : has trailing spaces removed from each line and a carriage-
return, linefeed sequence appended to each unless the line
is 80 characters long.
$cancel$
Cancel ... Esc / F10
@end
@nf sferr
$alert$
@win line8,column13,depth8,width54
@drop
@outline $alert_fore$
DISC ERROR
@line
Attempting to create or write to screen image file
@line
@bright
Continue ... any key
@end
@nf exists
$alert$
@log
@win line8,column3,depth8,width74
@drop
@outline $alert_fore$
File{ }
already exists.
@line
Do you want to overwrite it ? [Y] Y=Yes, N=No
@line
@bright
Action ...
@end
@nf newpath
$form$
@acceptfk f2
@path
@win line3,column4,depth14,width70
@drop
@out $form_fore$
CHANGE WORKING DRIVE AND/OR DIRECTORY
@line
New working directory ?
[. ]
@line
Enter pathname. A drive specifier (a-z) is optional.
@line
If the field marker flashes, then either the drive specifier or
path is invalid.
$cancel$
Restore initial drive and directory ... F2
Cancel ... Esc / F10
@end
@nf dpfile
@file exists
$form$
@win line6,column4,depth12,width72
@drop under
@outline $form_fore$
DISPLAY FILE
@line
Filename ?
[. ]
@line
A path may be included. The opening field marker will flash if the
file does not exist. Press CTRL/T if you wish to clear the field.
$cancel$
Cancel ... Esc / F10
@end
; TEMPLATES FOR PROGRAM DATA CAPTURE
@nf query
@log
$form$
@window line7,column20,depth10,width48
@drop
@outline $form_fore$
Program / DOS command ... { }
@line
{ }
@line
Answer ... [Y] Y=Yes, N=No
$cancel$
Action ...
Cancel ... Esc / F10
@end
@nf getparam
@str
$form$
@window line7,column20,depth10,width48
@drop
@outline $form_fore$
Program / DOS command ... { }
@line
{ }
@line
[. ]
$cancel$
Default ...
Cancel ... Esc / F10
@end
; TEMPLATES FOR THE NETWORK MESSAGING FEATURE
@nf nosysadm
$alert$
@win line9,column12,depth6,width56
@drop
@out $alert_fore$
You can't send a message to the system administrator
because he/she is not online at the moment ...
@line
@bright
Acknowledge ... any key
@end
@nf whatmsg
@str min1
$form$
@window line8,column16,depth8,width48
@drop
@outline $form_fore$
Enter a message for the System administrator.
38 characters maximum.
@line
[. ]
$cancel$
Cancel ... Esc / F10
@end
@nf msgnotrx
$alert$
@win line6,column16,depth11,width48
@drop
@out $alert_fore$
Your message was not received. Perhaps the
System administrator has gone 'off-line'.
Alternatively, there may be too many messages
pending already.
Please try again later ...
@line
@bright
Acknowledge ... any key
@end
@nf rxdetails
@dim
@col char,white,magenta
@window line7,column14,depth9,width52
@drop
@outline white
Message:{ }
sent at:{ } from workstation:{ }
@line
The System administrator's workstation connection
number is:{ }
@line
@bright
Acknowledge ... any key
@end
; TEMPLATES FOR THE NOTEPAD FEATURE
@nf notepads
$form$
@win line2,column26,depth16,width46
@bbmenu $form_fore$,$form_back$
@drop under
@out $form_fore$
SELECT NOTEPAD
@line
@repeat x5
{ } { }
@line
Begin new notepad ... F2
$cancel$
Select ...
Action ...
Cancel ... Esc / F10
@end
@nf memname
$form$
@alpha min1,convert
@win line2,column26,depth14,width46
@out $form_fore$
@drop
CREATE NOTEPAD
@line
Name for new Notepad [. ]
Use alphabetic characters only.
@line
A file called 'name.tmj' will be created in
the default directory.
$cancel$
Cancel ... Esc / F10
@end
@nf mem
$form$
@win line2,column26,depth15,width46
@drop
@out $form_fore$
@repeat x10
@str
@repeat x10
[ ]
Editing{ }
$cancel$
Cancel ... Esc / F10
@end
@nf badnotes
$alert$
@window line 5,column5,width70,depth18
@outline $alert_fore$
@drop
Problem with Notepad:
{ }
@line
The file{ }
@line
Possible reasons:
@line
If reading the notepad, its file may be corrupt or someone has
attempted to edit or overwrite it.
@line
If creating a new notepad, a most likely cause is insufficient
disc space.
@line
Action: Exit and rectify
@line
@bright
Acknowledge ... any key
@end
@eof